home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / RA_WIN31.ZIP / FDUP.BAT < prev    next >
DOS Batch File  |  1994-03-10  |  3KB  |  117 lines
  1. @Echo off
  2. :-------------------------------------------------------------------------:
  3. :  Front Door main system batch file for Flashpoint! BBS                  :
  4. :     Should be called by Fdstub.Bat                                      :
  5. :-------------------------------------------------------------------------:
  6. :
  7. :System Settings
  8. :
  9.   Echo Front Door - Initialising System
  10.   Rem Call \M_Set.Bat
  11.   Call \Flash_At.Bat
  12.   Set Task=1
  13.   Call Cya.Bat
  14.   Cd \Gecho
  15.   Mbutil Import C:\Fd\Netmail\ Netmail
  16.   Gecho Mgr
  17.   Gecho Scan Toss
  18.   Cd \Fd
  19. :
  20. :Start
  21. :
  22.   Rem Atsend s86?
  23.   Call Cya.Bat
  24.   If Not Exist C:\Ra\Attach\23241312.2\Flashpnt.Sub Goto Post_Sub
  25. :Continue
  26.   Echo Front Door - Starting
  27.   Dos_Bbs /d2000 /B
  28.   If Errorlevel 1 Goto Again
  29.   Goto Shutdown
  30. :Post_Sub
  31.   Md \Ra\Attach\23241312.2
  32.   Copy \Ra\Files\General\Flashpnt.Sub \Ra\Attach\23241312.2\Flashpnt.Sub
  33.   Goto Continue
  34. :
  35. :Again
  36. :
  37.   Cls
  38.   Echo Running Flash Point BBS Batch File.
  39.   Echo Loading FrontDoor Now !
  40.   Cd \Ra\Line1
  41.   C:\Ra\Ra -mc:\fd\fd.exe*M -E20 -N1
  42.   Cd \Fd
  43. :
  44. :Loop
  45. :
  46.   IF ERRORLEVEL 255 GOTO Start
  47.   IF ERRORLEVEL 222 goto Mail
  48.   IF ERRORLEVEL 191 GOTO Wakeup
  49.   IF ERRORLEVEL 190 GOTO Comnode
  50.   IF ERRORLEVEL 33  GOTO Shutdown
  51.   IF ERRORLEVEL 20  Goto Start
  52.   IF ERRORLEVEL 10  GOTO End
  53.   IF ERRORLEVEL 5   GOTO Mail
  54.   IF ERRORLEVEL 4   GOTO Mail
  55.   IF ERRORLEVEL 3   GOTO Mail
  56.   IF ERRORLEVEL 0   GOTO Mail
  57.   Goto Start
  58. :
  59. :Mail
  60. : 
  61.   Cd \Gecho
  62.   Mbutil Import C:\Fd\Netmail\ Netmail
  63.   Gecho Mgr
  64.   Gecho Scan Toss
  65.   Goto Start
  66. :
  67. :Wakeup
  68. :
  69.   Call C:\Ra\Daily.Bat
  70.   Goto Again
  71. :
  72. :Comnode
  73. :
  74.   Echo Added new nodelists!
  75.   Cd\Fd\Nodelist
  76.   Daynbr /-2 Copy z:\fd\files\nodediff.@l## /v
  77.   Daynbr /-2 Lha e /cm Nodediff.@l##
  78.   Daynbr /-2 Del Nodediff.@l##
  79.   Xlatlist SEA CLE FOR Fidonet.Ctl
  80.   Cd\fd
  81.   Fdnc /F
  82.   cd\ra
  83.   RaNode
  84.   goto Start
  85. :
  86. :Shutdown
  87. :
  88.   Echo ********************************
  89.   Echo * Shutdown -- turn the BBS off *
  90.   Echo ********************************
  91.   Echo 
  92.   Goto The End
  93. :
  94. :Error
  95. :
  96.   Echo *************************
  97.   Echo * An Error Has Occurred *
  98.   Echo *************************
  99.   Echo 
  100.   Goto The End
  101. :
  102. :End
  103. :
  104.   Echo ******************************
  105.   Echo * The End Of Flash Point BBS *
  106.   Echo ******************************
  107.   Task 4 Reload Flash Point BBS  [Y/N] :
  108.   IF ERRORLEVEL 2 GOTO Start
  109.   IF ERRORLEVEL 1 GOTO The End
  110.   IF ERRORLEVEL 0 GOTO Start
  111. :
  112. :The End
  113. :
  114.   Echo *****************************
  115.   Echo * T-H-E  E-N-D !!           *
  116.   Echo *****************************
  117.